home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / BUCKY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-09-02  |  5.8 KB  |  322 lines
  1. 1  'DEF SEG=0:POKE &H410,(PEEK(&H410)AND &HCF) OR &H10:SCREEN 1,0,0,0:SCREEN 0:WIDTH 40:LOCATE ,,1,6,7:SCREEN 1,0,0,0
  2. 100  KEY OFF
  3. 110  CLS
  4. 120  SCREEN 1
  5. 130   COLOR 9,0
  6. 140  LINE (211,108)-(208,100)
  7. 150  LINE (208,100)-(206,102)
  8. 160  LINE -(200,90)
  9. 170  LINE -(190,89)
  10. 180  LINE (211,108)-(195,118)
  11. 190  LINE -(192,112)
  12. 200  LINE -(206,102)
  13. 210  PSET (190,89)
  14. 220  DRAW "H1G1H1G1L2H1G1"
  15. 230  LINE -(178,88)
  16. 240  LINE -(176,82)
  17. 250  LINE -(178,77)
  18. 260  LINE -(200,66)
  19. 270  LINE -(204,60)
  20. 280  LINE -(204,53)
  21. 290  LINE -(200,48)
  22. 300  LINE -(202,43)
  23. 310  LINE -(202,39)
  24. 320  LINE -(199,34)
  25. 330  LINE -(188,40)
  26. 340  LINE -(166,34)
  27. 350  LINE -(141,36)
  28. 360  LINE -(128,29)
  29. 370  LINE -(125,29)
  30. 380  LINE -(123,31)
  31. 390  LINE -(123,39)
  32. 400  LINE -(120,41)
  33. 410  LINE -(113,46)
  34. 420  LINE -(111,50)
  35. 430  LINE -(110,52)
  36. 440  LINE -(110,56)
  37. 450  LINE -(112,60)
  38. 460  LINE -(120,67)
  39. 470  LINE -(130,72)
  40. 480  LINE -(130,80)
  41. 490  LINE -(120,89)
  42. 500  LINE -(116,92)
  43. 510  LINE -(112,98)
  44. 520  LINE -(111,102)
  45. 530  LINE -(111,108)
  46. 540  LINE -(113,115)
  47. 550  LINE -(120,124)
  48. 560  LINE -(134,133)
  49. 570  LINE -(132,134)
  50. 580  LINE -(136,143)
  51. 590  LINE -(138,143)
  52. 600  LINE -(140,149)
  53. 610  LINE -(142,152)
  54. 620  LINE -(150,155)
  55. 630  LINE -(160,156)
  56. 640  LINE -(163,158)
  57. 650  LINE -(163,160)
  58. 660  LINE -(155,169)
  59. 670  LINE -(153,172)
  60. 680  LINE -(153,174)
  61. 690  LINE -(155,172)
  62. 700  LINE -(157,171)
  63. 710  LINE -(155,175)
  64. 720  LINE -(159,172)
  65. 730  LINE -(158,175)
  66. 740  LINE -(158,176)
  67. 750  LINE -(161,174)
  68. 760  LINE -(160,176)
  69. 770  LINE -(170,170)
  70. 780  LINE -(171,168)
  71. 790  LINE -(185,165)
  72. 800  LINE -(190,150)
  73. 810  LINE -(188,148)
  74. 820  LINE -(187,140)
  75. 830  LINE -(183,140)
  76. 840  LINE -(180,131)
  77. 850  LINE -(182,129)
  78. 860  LINE -(175,120)
  79. 870  LINE -(174,121)
  80. 880  LINE -(169,119)
  81. 890  LINE -(168,116)
  82. 900  LINE -(168,113)
  83. 910  LINE -(170,110)
  84. 920  LINE -(173,106)
  85. 930  LINE -(178,107)
  86. 940  LINE -(186,104)
  87. 950  LINE -(193,112)
  88. 960  LINE (183,141)-(171,168)
  89. 970  LINE (180,131)-(158,140)
  90. 980  LINE -(138,143)
  91. 990  LINE (158,140)-(158,146)
  92. 1000  LINE -(161,156)
  93. 1010  LINE (175,120)-(170,126)
  94. 1020  LINE -(165,130)
  95. 1030  LINE -(150,133)
  96. 1040  LINE -(133,134)
  97. 1050  LINE (111,104)-(100,113)
  98. 1060  LINE -(101,118)
  99. 1070  LINE -(100,117)
  100. 1080  LINE -(98,125)
  101. 1090  LINE -(100,126)
  102. 1100  LINE -(98,130)
  103. 1110  LINE -(97,135)
  104. 1120  LINE -(100,140)
  105. 1130  LINE -(111,144)
  106. 1140  LINE -(114,142)
  107. 1150  LINE -(116,140)
  108. 1160  LINE -(117,138)
  109. 1170  LINE -(116,134)
  110. 1180  LINE -(112,132)
  111. 1190  LINE -(112,130)
  112. 1200  LINE -(113,130)
  113. 1210  LINE -(115,125)
  114. 1220  LINE -(114,125)
  115. 1230  LINE -(117,122)
  116. 1240  LINE (114,125)-(101,118)
  117. 1250  LINE (98,125)-(113,130)
  118. 1260  LINE (210,109)-(212,115)
  119. 1270  LINE -(202,138)
  120. 1280  LINE -(194,136)
  121. 1290  LINE -(190,131)
  122. 1300  LINE -(190,124)
  123. 1310  LINE -(191,121)
  124. 1320  LINE -(194,120)
  125. 1330  LINE -(195,118)
  126. 1340  LINE (202,130)-(200,128)
  127. 1350  LINE -(201,126)
  128. 1360  LINE -(201,124)
  129. 1370  LINE -(198,125)
  130. 1380  LINE -(199,122)
  131. 1390  LINE -(195,123)
  132. 1400  LINE -(195,120)
  133. 1410  LINE -(193,120)
  134. 1420  LINE (195,123)-(195,126)
  135. 1430  LINE (198,125)-(197,127)
  136. 1440  PAINT (150,110),2,3
  137. 1450  PAINT (110,110),2,3
  138. 1460  PAINT (110,126),2,3
  139. 1470  PAINT (100,130),2,3
  140. 1480  PAINT (150,140),2,3
  141. 1490  PAINT (150,150),2,3
  142. 1500  PAINT (170,150),2,3
  143. 1510  PAINT (180,160),2,3
  144. 1520  PAINT (200,110),2,3
  145. 1530  PAINT (200,120),2,3
  146. 1540  LINE (130,81)-(160,89)
  147. 1550  LINE -(168,89)
  148. 1560  LINE -(178,88)
  149. 1570  LINE (130,72)-(147,79)
  150. 1580  LINE (133,83)-(120,96)
  151. 1590  LINE -(118,100)
  152. 1600  LINE -(117,105)
  153. 1610  LINE -(118,110)
  154. 1620  LINE -(120,122)
  155. 1630  LINE -(122,126)
  156. 1640  LINE (138,84)-(127,100)
  157. 1650  LINE (124,110)-(123,114)
  158. 1660  LINE -(123,118)
  159. 1670  LINE -(126,128)
  160. 1680  LINE (143,86)-(138,98)
  161. 1690  LINE (131,119)-(132,132)
  162. 1700  LINE (149,87)-(145,94)
  163. 1710  LINE -(141,103)
  164. 1720  LINE (138,118)-(137,125)
  165. 1730  LINE -(139,134)
  166. 1740  LINE (155,88)-(150,100)
  167. 1750  LINE (145,121)-(146,133)
  168. 1760  LINE (161,89)-(151,120)
  169. 1770  LINE -(150,126)
  170. 1780  LINE -(152,133)
  171. 1790  LINE (168,89)-(159,114)
  172. 1800  LINE -(159,125)
  173. 1810  LINE -(164,130)
  174. 1820  LINE (175,88)-(166,114)
  175. 1830  LINE -(167,120)
  176. 1840  LINE -(171,125)
  177. 1850  LINE (180,88)-(173,106)
  178. 1860  LINE (179,92)-(198,92)
  179. 1870  LINE -(205,102)
  180. 1880  LINE (177,95)-(195,95)
  181. 1890  LINE -(202,105)
  182. 1900  LINE (176,99)-(191,99)
  183. 1910  LINE -(201,114)
  184. 1920  LINE (175,102)-(188,102)
  185. 1930  LINE -(197,117)
  186. 1940  LINE (178,77)-(156,83)
  187. 1950  LINE -(154,83)
  188. 1960  LINE -(152,82)
  189. 1970  LINE -(148,80)
  190. 1980  LINE (196,110)-(199,116)
  191. 1990  LINE (200,107)-(204,113)
  192. 2000  LINE (202,105)-(206,111)
  193. 2010  LINE (204,103)-(208,109)
  194. 2020  LINE (205,101)-(210,108)
  195. 2030  LINE (172,89)-(170,80)
  196. 2040  LINE (167,89)-(166,82)
  197. 2050  LINE (163,89)-(162,82)
  198. 2060  LINE (160,88)-(159,83)
  199. 2070  LINE (156,87)-(156,84)
  200. 2080  LINE (151,86)-(151,83)
  201. 2090  LINE (146,85)-(146,80)
  202. 2100  LINE (142,84)-(142,78)
  203. 2110  LINE (137,83)-(137,76)
  204. 2120  LINE (133,82)-(133,74)
  205. 2130  LINE (111,109)-(104,114)
  206. 2140  LINE -(103,118)
  207. 2150  LINE (112,112)-(106,116)
  208. 2160  LINE -(106,120)
  209. 2170  LINE (113,115)-(109,119)
  210. 2180  LINE -(109,121)
  211. 2190  LINE (115,119)-(112,122)
  212. 2200  LINE -(112,123)
  213. 2210  LINE (102,120)-(101,126)
  214. 2220  LINE (104,121)-(103,127)
  215. 2230  LINE (106,122)-(105,128)
  216. 2240  LINE (108,123)-(107,129)
  217. 2250  LINE (110,124)-(109,129)
  218. 2260  LINE (112,125)-(111,129)
  219. 2270  LINE (136,134)-(140,143)
  220. 2280  LINE (142,133)-(146,142)
  221. 2290  LINE (148,133)-(152,141)
  222. 2300  LINE (154,132)-(158,140)
  223. 2310  LINE (160,131)-(164,138)
  224. 2320  LINE (166,129)-(170,135)
  225. 2330  LINE (171,126)-(176,132)
  226. 2340  LINE (120,96)-(124,110)
  227. 2350  LINE -(127,118)
  228. 2360  LINE -(133,120)
  229. 2370  LINE -(137,113)
  230. 2380  LINE -(139,120)
  231. 2390  LINE -(145,120)
  232. 2400  LINE -(153,100)
  233. 2410  LINE -(147,100)
  234. 2420  LINE -(142,110)
  235. 2430  LINE -(140,98)
  236. 2440  LINE -(133,98)
  237. 2450  LINE -(129,106)
  238. 2460  LINE -(126,98)
  239. 2470  LINE -(120,96)
  240. 2480  PAINT (130,110),3,3
  241. 2490  LINE (134,75)-(132,71)
  242. 2500  LINE -(124,66)
  243. 2510  LINE -(117,58)
  244. 2520  LINE -(117,52)
  245. 2530  LINE -(120,46)
  246. 2540  LINE -(125,41)
  247. 2550  LINE -(125,32)
  248. 2560  DRAW "E1R2"
  249. 2570  LINE -(141,40)
  250. 2580  LINE -(142,46)
  251. 2590  LINE -(146,50)
  252. 2600  LINE -(146,54)
  253. 2610  LINE -(150,57)
  254. 2620  LINE -(161,35)
  255. 2630  LINE (170,35)-(166,44)
  256. 2640  LINE -(165,57)
  257. 2650  LINE -(198,36)
  258. 2660  DRAW "F1D1F1D4G2D4F3D2G4D2G11"
  259. 2670  LINE -(156,82)
  260. 2680  LINE (186,48)-(193,51)
  261. 2690  LINE -(195,56)
  262. 2700  LINE -(195,58)
  263. 2710  LINE -(190,64)
  264. 2720  LINE -(182,69)
  265. 2730  LINE -(176,69)
  266. 2740  LINE -(180,68)
  267. 2750  LINE -(184,66)
  268. 2760  LINE -(188,60)
  269. 2770  LINE -(188,58)
  270. 2780  LINE -(186,48)
  271. 2790  LINE (164,68)-(158,57)
  272. 2800  LINE -(148,68)
  273. 2810  LINE -(164,68)
  274. 2820  LINE (138,70)-(134,60)
  275. 2830  LINE -(134,50)
  276. 2840  LINE -(136,44)
  277. 2850  LINE -(128,50)
  278. 2860  LINE -(126,56)
  279. 2870  LINE -(138,70)
  280. 2880  PAINT (140,70),3,3
  281. 2890  CIRCLE (142,56),3,2
  282. 2900  CIRCLE (172,58),3,2
  283. 2910  CIRCLE (156,71),3,2
  284. 2920  LINE (151,76)-(153,78),2
  285. 2930  LINE -(160,76),2
  286. 2940  LINE -(163,78),2
  287. 2950  LINE (117,123)-(128,137)
  288. 2960  LINE -(132,180)
  289. 2970  LINE -(137,190)
  290. 2980  LINE -(220,190)
  291. 2990  LINE -(220,170)
  292. 3000  LINE -(215,161)
  293. 3010  LINE -(220,150)
  294. 3020  LINE -(220,132)
  295. 3030  LINE -(217,123)
  296. 3040  LINE -(223,100)
  297. 3050  LINE -(264,56)
  298. 3060  LINE -(259,51)
  299. 3070  LINE -(220,80)
  300. 3080  LINE -(233,53)
  301. 3090  LINE -(216,34)
  302. 3100  LINE -(182,20)
  303. 3110  LINE -(180,16)
  304. 3120  LINE -(167,12)
  305. 3130  LINE -(162,15)
  306. 3140  LINE -(166,2)
  307. 3150  LINE -(162,0)
  308. 3160  LINE -(132,14)
  309. 3170  LINE -(127,10)
  310. 3180  LINE -(115,17)
  311. 3190  LINE -(115,35)
  312. 3200  LINE -(102,46)
  313. 3210  LINE -(93,70)
  314. 3220  LINE -(100,77)
  315. 3230  LINE -(100,98)
  316. 3240  LINE -(107,108)
  317. 3250  PAINT (218,188),1,3
  318. 3260   A$="T240O2L2F.L4EL2GL2FL2B-.L4AO3L2CO2L2B-O3L2DL2DL2DL2DL1DL2C.O2L4BO3L2CL2DO2L2B-.O3L4CL2DO2L4B-L4B-L2AL2GL2AL2B-O3L1CO2L4A"
  319. 3270   B$="L4GL4F#L2F.L4EL2GL2FL3B-.L4AO3L2CO2L2B-O3L2CO2L2B-O3L2CL2C#L1DL1E-O2L2B-O3L2CL2DL2E-L2FL2GL1DL1CO2L1B-P4L4B-"
  320. 3280   PLAY "XA$;XB$;"
  321. 10000  'CLS:DEF SEG=0:POKE &H410,(PEEK(&H410) OR &H30):SCREEN 0:WIDTH 40:WIDTH 80:SCREEN ,7
  322.